home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 June
/
1984-06.d64
/
castle dungeonv1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
42 lines
1 printchr$(147):poke52,29:poke56,29:clr
2 sv=36873:s1=sv+1:s2=sv+2:s3=sv+3:v=sv+5:sb=sv+6
3 readl,n:ifn=-1then5
4 forj=0ton:reads:pokel+j,s:next:goto3
5 pokesb,110:fort=1to500:next
6 form=1to3:reada,b,c,d,e
7 pokes1,a:pokes2,b:pokes3,c:forj=15toestep-1:pokev,j:fort=1tod:next:next:next
10 fort=1to2000:next
11 printchr$(147):fort=1to500:next
12 pokesb,59:pokesv-4,242
13 fort=1to500:next
14 printchr$(144)"[145][198]ind and defuse the"
15 print:print" bombs hidden in the"
16 print:print" dungeon. [196]on't fall"
17 print:print" into a pit or get"
18 print"eaten by a beast."
19 print"[208]ress the '[204]' key for"
20 print"a levitation spell."
21 print:print"[217]ou have 5 minutes"
22 print"to complete your":print"quest."
23 poke143,val(mid$(ti$,5,2))
24 readcl:ifcl=-1then26
25 forj=cltocl+7:readcc:pokej,cc:next:goto24
26 print:print"([200]it any key to begin)"
27 geta$:ifa$=""then27
28 print"[147]":forj=1to3:pokesv+j,0:next:s$="l[207]"+chr$(34)+"d"+chr$(34)+",8:"+chr$(131)
29 for i=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i:end
30 data7878,20,114,64,73,73,32,110,85,73,110,85,64,73,112,64,75,85,64,73,85,73,110
31 data7900,20,93,32,93,93,32,93,93,93,93,93,64,73,107,64,32,93,32,93,93,93,93
32 data7922,20,113,64,75,74,64,115,125,74,75,74,64,75,109,64,73,74,64,75,125,74,75
33 data7792,17,85,64,73,112,64,110,85,64,75,64,114,64,112,32,32,112,64,75
34 data7814,16,93,32,32,107,64,115,74,64,73,32,93,32,93,32,32,107,64
35 data7836,17,74,64,75,75,32,125,85,64,75,32,75,32,74,64,75,109,64,73
40 data -1,-1
41 data0,0,219,36,5,0,236,231,36,5,237,231,226,100,0
44 data7632,247,227,246,193,215,247,235,235,7640,255,34,34,34,255,68,68,68
45 data7648,255,231,195,129,129,131,199,255,7656,255,191,95,64,90,186,255,255
46 data7664,191,121,112,1,0,135,55,115,7672,255,239,247,231,195,195,231,255
47 data7424,255,255,255,255,255,255,255,255,7440,255,255,255,129,129,255,255,255,7432
48 data255,255,255,255,255,255,255,255,7448,255,253,251,247,143,207,175,255
49 data7456,191,121,112,1,0,135,55,115,7464,255,255,231,0,0,231,255,255,-1